---
title: "MONITOREO DE LA CALIDAD DEL AGUA SUPERFICIAL (ETAPA I)"
output: 
  flexdashboard::flex_dashboard:
    orientation: rows
    social: menu
    source_code: embed
    vertical_layout: fill    
---

```{r setup, include=FALSE}

#-------------------- Paquetes --------------------

library(flexdashboard)
library(plotly)
library(dplyr)
library(tidyr)
library(sf)
library(leaflet)
library(shiny)

#-------------------- Colores ---------------------

color_camp_1 <- 'blue'
color_camp_2 <- 'blue'
color_camp_3 <- 'blue'
color_camp_4 <- 'blue'

color_info <- 'green'
color_ubic <- 'red'


#--------------------- Íconos ---------------------

icono_camp_1 <- 'fas fa-hand-holding-water'
icono_camp_2 <- 'fas fa-fill'
icono_camp_3 <- 'fas fa-flask'
icono_camp_4 <- 'fas fa-clipboard-list'
icono_info1 <- 'fas fa-code'
icono_info2 <- 'fas fa-cogs'
icono_info3 <- 'fas fa-edit'
icono_info4 <- 'fas fa-clipboard-check'

#--------------- Otros parámetros -----------------

# Separador para lectura de datos CSV
caracter_separador <- ','
```


```{r, include=FALSE}
#--------------- Archivos de datos ----------------

archivo_datos_PNM <- 'https://raw.githubusercontent.com/EsmeVar/PNM_FASE_5/main/2021_04_15_PNM_INFO_COMPLETA.csv'

PNM <- 
  st_read("https://raw.githubusercontent.com/EsmeVar/PNM_FASE_5/main/2021_04_15_PNM_INFO_COMPLETA.csv")

```


Resumen
=======================================================================
Row {data-height=10}
-----------------------------------------------------------------------
### **Última actualización de datos realizada el 25 de febrero de 2021 con base en los [datos publicados por la Dirección de de Agua del Ministerio de Ambiente y Energía de Costa Rica](http://mapas.da.go.cr/mapnew.php)**.


Row {data-height=130}
-----------------------------------------------------------------------
### código del punto muestreado {.value-box}
```{r}
valueBox(("PS-ESQ-01"),
         caption = "Código del punto de muestreo",
         icon = icono_camp_1, 
         color = color_info
         )
```

### Cuerpo de Agua {.value-box}
```{r}
valueBox(("Piedras Blancas"),
         caption = "Cuerpo de Agua",
         icon = icono_info2,
         color = color_info
         )
```

### Cuenca {.value-box}
```{r}
valueBox(("Esquinas"), 
         caption = "Cuenca",
         icon = icono_info3, 
         color = color_info
)
```

### Coordenadas {.value-box}
```{r}
valueBox(("Latitud: 970837,Longitud: 583319"), 
         caption = "Coordenadas CRTM 05",
         icon = icono_info3, 
         color = color_info
)
```

Row
-----------------------------------------------------------------------

### Provincia {.value-box}
```{r}
valueBox(("Puntarenas"), 
         caption = "Provincia",
         icon = icono_info3, 
         color = color_ubic
)
```

### Cantón {.value-box}
```{r}
valueBox(("Osa"), 
         caption = "Cantón",
         icon = icono_info3, 
         color = color_ubic
)
```

### Distrito {.value-box}
```{r}
valueBox(("Piedras Blancas"), 
         caption = "Distrito",
         icon = icono_info3, 
         color = color_ubic
)
```

Row
-----------------------------------------------------------------------


### Campaña 1 {.value-box}
```{r}
valueBox(("Clase 4: Contaminación incipiente"), 
         caption = "Indice Holandes - Campaña 1 (Agosto 2019)", 
         icon = icono_camp_1, 
         color = color_camp_1
         )
```

### Campaña 2 {.value-box}
```{r}
valueBox(("N/A"), 
         caption = "Indice Holandes - Campaña 2 (Noviembre 2019)",
         icon = icono_camp_2, 
         color = color_camp_2
         )
```

### Campaña 3 {.value-box}
```{r}
valueBox(("N/A"), 
         caption = "Indice Holandes - Campaña 3 (Febrero 2020)",
         icon = icono_camp_3, 
         color = color_camp_3
         )
```

### Campaña 4 {.value-box}
```{r}
valueBox(("N/A"), 
         caption = "Indice Holandes - Campaña 4 (Mayo 2020)",
         icon = icono_camp_4, 
         color = color_camp_4
         )
```

Row {data-width=400}
-----------------------------------------------------------------------

### Mapa de ubicación del punto de muestreo
```{r}

mapa1 <- leaflet() %>%
  addTiles() %>% 
  addProviderTiles(providers$Stamen.TonerLite, group = "Stamen Toner Lite") %>%
  addProviderTiles(providers$Esri.WorldImagery, group = "Imágenes de ESRI") %>% 
  addMarkers(lng=-83.243, lat=8.779, 
             popup="PS-ESQ-01"
  ) %>%  
  addLayersControl(
    baseGroups = c("OpenStreetMap", "Stamen Toner Lite", "Imágenes de ESRI")
  )

# Despliegue del mapa
mapa1
```


### **Información de los datos publicados**
**1. El monitoreo de los cuerpos de agua superficiales y la clasificación de su calidad se realizó según:**

- Decreto N° 33903-MINAE-S. REGLAMENTO PARA LA EVALUACIÓN Y CLASIFICACION DE LA CALIDAD DE CUERPOS DE AGUA SUPERFICIALES.

- Plan nacional de monitoreo de la calidad de los cuerpos de agua superficiales.

- Programa nacional de monitoreo de la calidad de los cuerpos de agua del país.





**2. Para una mejor interpretación de los resultados, se aclara:**

Según el artículo 20 del Decreto N° 33903-MINAE-S, en aquellos casos en que el valor del Índice de Clasificación Holandés y el valor del Índice Biológico presenten una diferencia de más de una clase entre ellos, el
muestreo se deberá repetir por una vez, en un período no mayor a 30 días naturales. En caso de que se mantenga la diferencia de clases se clasifica en la de menor calidad.





**Nota:** Para mayor información sobre el monitoreo de la calidad de los cuerpos de agua superficiales, escríbanos al correo: daguas@da.go.cr 


Campaña 1
=======================================================================
Row {data-height=1}
-----------------------------------------------------------------------



Row
-----------------------------------------------------------------------

### Campaña 1 {.value-box}


Row {data-width=400}
-----------------------------------------------------------------------

### Mapa de puntos monitoreados en la cuenca
```{r}

color_camp_1 <- colorBin(palette = "Blues", 
                        domain = PNM$Cuenca,
                        bins = 10
               )

Mapa <- leaflet(PNM) %>% 
  fitBounds(lng1 = -86, lng2 = -82, lat1 = 8, lat2 = 11) %>%
  addProviderTiles(providers$OpenStreetMap.Mapnik, group = "OpenStreetMap") %>%
  addLayersControl(
    baseGroups = c("OpenStreetMap"),
    options = layersControlOptions(collapsed = TRUE)
  ) %>%
  addScaleBar(
  ) %>%
  addMiniMap(
    toggleDisplay = TRUE,
    position = "bottomleft",
    tiles = providers$OpenStreetMap.Mapnik
  )

# Despliegue del mapa
Mapa
```

### **Gráfico de resultados campaña 1**



Campaña 2
=======================================================================
Row {data-height=10}
-----------------------------------------------------------------------
### **Última actualización de datos realizada el 25 de febrero de 2021 con base en los [datos publicados por la Dirección de de Agua del Ministerio de Ambiente y Energía de Costa Rica](http://mapas.da.go.cr/mapnew.php)**.

Row
-----------------------------------------------------------------------

### Campaña 2 {.value-box}


Row {data-width=400}
-----------------------------------------------------------------------

### **Mapa de campaña 2**


### **Gráfico de resultados de campaña 2 - Caribe**


Campaña 3
=======================================================================
Row {data-height=10}
-----------------------------------------------------------------------
### **Última actualización de datos realizada el 25 de febrero de 2021 con base en los [datos publicados por la Dirección de de Agua del Ministerio de Ambiente y Energía de Costa Rica](http://mapas.da.go.cr/mapnew.php)**.

Row
-----------------------------------------------------------------------



Campaña 4
=======================================================================
Row {data-height=10}
-----------------------------------------------------------------------
### **Última actualización de datos realizada el 25 de febrero de 2021 con base en los [datos publicados por la Dirección de de Agua del Ministerio de Ambiente y Energía de Costa Rica](http://mapas.da.go.cr/mapnew.php)**.


Row
-----------------------------------------------------------------------


```